home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / tls / tls035c.1 / lib / vtcl / tests / input.tcl / input.tcl
Encoding:
Text File  |  1995-03-23  |  468 b   |  28 lines
  1. #
  2. # This test that wstcl will work with even connecting to 
  3. # wserver.
  4. #
  5. # To test type the following
  6. #    cat /etc/termcap | wstcl input.tcl
  7. # You should see the file scrolling on the screen
  8. # 
  9. proc echoCB {id} {
  10.      set count [gets $id line]
  11.  
  12.      if { $count == -1 } {
  13.     echo "\n\nPASSED input.tcl"
  14.     exit 0
  15.      }
  16.      
  17.      puts stdout "." nonewline
  18.  
  19.      VtRemoveInput $id
  20.      VtAddInput $id echoCB
  21. }
  22.  
  23. set f [open /etc/termcap]
  24.  
  25. VtAddInput $f echoCB
  26.  
  27. VtMainLoop
  28.